﻿
Namespace LightSwitchApplication

    Public Class MyUserDetail

        Private Sub MyUserDetail_InitializeDataWorkspace(saveChangesTo As System.Collections.Generic.List(Of Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            Me.paramUserName = Me.Application.User.Name
        End Sub

        Private Sub ShowMap_Execute()
            ' Write your code here.
            Me.Application.ShowMapScreen(Me.GetUserByUsername.SelectedItem.FullAddress)
        End Sub

        Private Sub ShowMap_CanExecute(ByRef result As Boolean)
            ' Write your code here.
            result = (Me.GetUserByUsername.SelectedItem.FullAddress <> "")
        End Sub
    End Class

End Namespace
